home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / c / GED4DCC.lha / GoldED_ErrorClear.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-02-03  |  1.4 KB  |  57 lines
  1. /*
  2. ** $VER: GoldED_ErrorClear.rexx 1.001 (07.01.95) © Gian Maria Calzolari
  3. **
  4. **
  5. **  FUNCTION:
  6. **      DICE Error Parsing Script, must be called from within GoldEd. Clear
  7. **          all the errors. Script for GoldEd © Dietemar Eilert
  8. **
  9. ** Notes: Add this to a Function key as an Arexx cmd to always have it
  10. **          ready to use!
  11. **
  12. **        This assumes that your DCC:Config/DCC.Config file contains the
  13. **         following line:
  14. **
  15. **  cmd= rx DCC:Rexx/GoldED_ErrorParse.rexx %e "%c" "%f" "%0"
  16. **
  17. ** $HISTORY:
  18. **
  19. ** 07 Jan 1995 : 001.001 : First release. Created by Gian Maria Calzolari
  20. **                          (2:332/502.11 2:332/801.19)
  21. **
  22. */
  23.  
  24. OPTIONS RESULTS
  25.  
  26. portname = 'DICE_ERROR_PARSER'  /* DICEHelp's port name */
  27.  
  28. /*
  29. ** do nothing if the error parser isn't loaded!
  30. */
  31.  
  32. if ~show('p',portname) then exit
  33.  
  34. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  35.  
  36. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  37. OPTIONS FAILAT 6                            /* ignore warnings         */
  38. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  39.  
  40. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  41.  
  42. ADDRESS DICE_ERROR_PARSER Clear
  43.  
  44. 'REQUEST PROBLEM="All errors have been cleared!"'
  45.  
  46. /* ---------------------------- END OF YOUR CODE --------------------- */
  47.  
  48. 'UNLOCK' /* VERY important: unlock GUI */
  49. EXIT
  50.  
  51. SYNTAX:
  52.  
  53. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  54. 'UNLOCK'
  55. EXIT
  56.  
  57.